Delphi 2.0 - Programmer's Utilities Power Pack/Delphi 2.0 Programmer's Utilities Power Pack.iso/a_to_d/dbplus2/demomain.dfm/demomain.txt

Text File | 1996-09-15 | 14.3 KB | 614 lines

object Form1: TForm1
  Left = 216
  Top = 90
  BorderStyle = bsDialog
  Caption = 'DBLookUpComboPlus Demo'
  ClientHeight = 375
  ClientWidth = 374
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  OnCreate = FormCreate
  TextHeight = 16
  object TabbedNotebook1: TTabbedNotebook
    Left = 0
    Top = 0
    Width = 374
    Height = 209
    Hint = 'Main table data is a string and lookup table is a string.'
    Align = alTop
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 0
    object TTabPage
      Left = 5
      Top = 45
      Caption = '1. csDropDownList'
      object Name: TLabel
        Left = 40
        Top = 10
        Width = 43
        Height = 21
        Caption = 'Name'
      end
      object Style: TLabel
        Left = 34
        Top = 37
        Width = 49
        Height = 16
        Caption = 'Cuisine'
      end
      object Phone: TLabel
        Left = 36
        Top = 64
        Width = 51
        Height = 21
        Caption = 'Phone'
      end
      object Location: TLabel
        Left = 24
        Top = 89
        Width = 65
        Height = 21
        Caption = 'Location'
      end
      object DBEditName: TDBEdit
        Left = 93
        Top = 6
        Width = 167
        Height = 25
        DataField = 'Name'
        DataSource = DataSourceRest
        MaxLength = 40
        TabOrder = 0
      end
      object ComboPlusLocation: TDBLookupComboPlus
        Left = 93
        Top = 89
        Width = 167
        Height = 25
        Hint =
          'Main table data is a string and lookup table is a string. Style ' +
          '= csDropDownList'
        DataField = 'Location'
        DataSource = DataSourceRest
        LookupSource = DataSourceLocation
        LookupDisplay = 'Location'
        LookupField = 'Location'
        Style = csDropDownList
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
      end
      object ComboPlusSubCat: TDBLookupComboPlus
        Left = 93
        Top = 33
        Width = 167
        Height = 25
        Hint =
          'Main Table Data is an integer. Lookup displays a string. Style =' +
          ' csDropDownList'
        DataField = 'SubCat'
        DataSource = DataSourceRest
        LookupSource = DataSourceSubCat
        LookupDisplay = 'SubCatName'
        LookupField = 'SubCatNum'
        Style = csDropDownList
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object Navigator1: TDBNavigator
        Left = 0
        Top = 134
        Width = 356
        Height = 25
        DataSource = DataSourceRest
        Align = alBottom
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
      end
      object DBEditPhone: TDBEdit
        Left = 93
        Top = 61
        Width = 103
        Height = 25
        DataField = 'Phone'
        DataSource = DataSourceRest
        MaxLength = 14
        TabOrder = 4
      end
    end
    object TTabPage
      Left = 5
      Top = 45
      Caption = '2. csDropDown'
      object Name2: TLabel
        Left = 41
        Top = 7
        Width = 45
        Height = 21
        Caption = 'Name'
      end
      object Style2: TLabel
        Left = 37
        Top = 34
        Width = 49
        Height = 16
        Caption = 'Cuisine'
      end
      object Phone2: TLabel
        Left = 38
        Top = 63
        Width = 48
        Height = 16
        Caption = 'Phone'
      end
      object Location2: TLabel
        Left = 24
        Top = 88
        Width = 62
        Height = 21
        Caption = 'Location'
      end
      object DBEditName2: TDBEdit
        Left = 95
        Top = 5
        Width = 164
        Height = 25
        DataField = 'Name'
        DataSource = DataSourceRest
        MaxLength = 40
        TabOrder = 0
      end
      object ComboPlusLocation2: TDBLookupComboPlus
        Left = 95
        Top = 85
        Width = 164
        Height = 25
        Hint =
          'Main table data is a string and lookup table is a string. Style ' +
          '= csDropDown'
        DataField = 'Location'
        DataSource = DataSourceRest
        LookupSource = DataSourceLocation
        LookupDisplay = 'Location'
        LookupField = 'Location'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
      end
      object DBEditPhone2: TDBEdit
        Left = 95
        Top = 57
        Width = 100
        Height = 25
        DataField = 'Phone'
        DataSource = DataSourceRest
        MaxLength = 14
        TabOrder = 2
      end
      object DBNavigator1: TDBNavigator
        Left = 0
        Top = 134
        Width = 356
        Height = 25
        DataSource = DataSourceRest
        Align = alBottom
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
      end
      object ComboPlusSubCat2: TDBLookupComboPlus
        Left = 94
        Top = 31
        Width = 164
        Height = 25
        Hint =
          'Main Table Data is an integer. Lookup displays a string. Style =' +
          ' csDropDown'
        DataField = 'SubCat'
        DataSource = DataSourceRest
        LookupSource = DataSourceSubCat
        LookupDisplay = 'SubCatName'
        LookupField = 'SubCatNum'
        LookupIndex = 'bySubCatName'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
    end
    object TTabPage
      Left = 5
      Top = 45
      Caption = '3. csIncSearch'
      object Name3: TLabel
        Left = 40
        Top = 9
        Width = 45
        Height = 16
        Caption = 'Name'
      end
      object Style3: TLabel
        Left = 34
        Top = 36
        Width = 49
        Height = 16
        Caption = 'Cuisine'
      end
      object Phone3: TLabel
        Left = 37
        Top = 65
        Width = 48
        Height = 16
        Caption = 'Phone'
      end
      object Location3: TLabel
        Left = 23
        Top = 88
        Width = 62
        Height = 19
        Caption = 'Location'
      end
      object DBEditName3: TDBEdit
        Left = 92
        Top = 5
        Width = 164
        Height = 25
        DataField = 'Name'
        DataSource = DataSourceRest
        MaxLength = 40
        TabOrder = 0
      end
      object ComboPlusSubCat3: TDBLookupComboPlus
        Left = 92
        Top = 32
        Width = 164
        Height = 25
        Hint =
          'Main Table Data is an integer. Lookup displays a string. Style =' +
          ' csIncSearch'
        DataField = 'SubCat'
        DataSource = DataSourceRest
        LookupSource = DataSourceSubCat
        LookupDisplay = 'SubCatName'
        LookupField = 'SubCatNum'
        LookupIndex = 'bySubCatName'
        Style = csIncSearch
        DropDownAlign = Left
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object DBEditPhone3: TDBEdit
        Left = 92
        Top = 59
        Width = 100
        Height = 25
        DataField = 'Phone'
        DataSource = DataSourceRest
        MaxLength = 14
        TabOrder = 2
      end
      object ComboPlusLocation3: TDBLookupComboPlus
        Left = 92
        Top = 86
        Width = 164
        Height = 25
        Hint =
          'Main table data is a string and lookup table is a string. Style ' +
          '= csIncSearch'
        DataField = 'Location'
        DataSource = DataSourceRest
        LookupSource = DataSourceLocation
        LookupDisplay = 'Location'
        LookupField = 'Location'
        Style = csIncSearch
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
      end
      object DBNavigator2: TDBNavigator
        Left = 0
        Top = 134
        Width = 356
        Height = 25
        DataSource = DataSourceRest
        Align = alBottom
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
      end
    end
    object TTabPage
      Left = 5
      Top = 45
      Caption = '4. csIncSrchEdit'
      object Name4: TLabel
        Left = 44
        Top = 5
        Width = 45
        Height = 21
        Caption = 'Name'
      end
      object Style4: TLabel
        Left = 36
        Top = 33
        Width = 49
        Height = 16
        Caption = 'Cuisine'
      end
      object Phone4: TLabel
        Left = 40
        Top = 61
        Width = 48
        Height = 21
        Caption = 'Phone'
      end
      object Location4: TLabel
        Left = 26
        Top = 86
        Width = 62
        Height = 21
        Caption = 'Location'
      end
      object DBEditName4: TDBEdit
        Left = 97
        Top = 3
        Width = 164
        Height = 25
        DataField = 'Name'
        DataSource = DataSourceRest
        MaxLength = 40
        TabOrder = 0
      end
      object DBEditPhone4: TDBEdit
        Left = 97
        Top = 58
        Width = 100
        Height = 25
        DataField = 'Phone'
        DataSource = DataSourceRest
        MaxLength = 14
        TabOrder = 2
      end
      object ComboPlusLocation4: TDBLookupComboPlus
        Left = 97
        Top = 87
        Width = 169
        Height = 25
        Hint =
          'Main table data is a string and lookup table is a string. Style ' +
          '= csIncSrchEdit'
        DataField = 'Location'
        DataSource = DataSourceRest
        LookupSource = DataSourceLocation
        LookupDisplay = 'Location'
        LookupField = 'Location'
        Style = csIncSrchEdit
        AutoDropDown = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
      end
      object DBNavigator3: TDBNavigator
        Left = 0
        Top = 134
        Width = 356
        Height = 25
        DataSource = DataSourceRest
        Align = alBottom
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
      end
      object ComboPlusSubCat4: TDBLookupComboPlus
        Left = 97
        Top = 30
        Width = 161
        Height = 25
        Hint =
          'Main Table Data is an integer. Lookup displays a string. Style =' +
          ' csIncSrchEdit'
        DataField = 'SubCat'
        DataSource = DataSourceRest
        LookupSource = DataSourceSubCat
        LookupDisplay = 'SubCatName'
        LookupField = 'SubCatNum'
        LookupIndex = 'bySubCatName'
        Style = csIncSrchEdit
        Ctl3D = True
        DropDownWidth = 250
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnNewLookupRec = ComboPlusSubCat4NewLookupRec
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 213
    Width = 374
    Height = 162
    Align = alBottom
    TabOrder = 1
    object RadioGroupAutoDropDown: TRadioGroup
      Left = 54
      Top = 8
      Width = 132
      Height = 42
      Caption = 'AutoDropDown'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ItemIndex = 0
      Items.Strings = (
        'True'
        'False')
      ParentFont = False
      TabOrder = 0
      OnClick = RadioGroupAutoDropDownClick
    end
    object RadioGroupSpeedButton: TRadioGroup
      Left = 193
      Top = 96
      Width = 131
      Height = 45
      Caption = 'ShowSpeedButton'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ItemIndex = 0
      Items.Strings = (
        'True'
        'False')
      ParentFont = False
      TabOrder = 1
      OnClick = RadioGroupSpeedButtonClick
    end
    object RadioGroupBorderStyle: TRadioGroup
      Left = 54
      Top = 50
      Width = 131
      Height = 45
      Caption = 'BorderStyle'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ItemIndex = 1
      Items.Strings = (
        'bsNone'
        'bsSingle')
      ParentFont = False
      TabOrder = 2
      OnClick = RadioGroupBorderStyleClick
    end
    object RadioGroupDropDownAlign: TRadioGroup
      Left = 191
      Top = 5
      Width = 132
      Height = 45
      Caption = 'DropDownAlign'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ItemIndex = 1
      Items.Strings = (
        'Left'
        'Right')
      ParentFont = False
      TabOrder = 3
      OnClick = RadioGroupDropDownAlignClick
    end
    object RadioGroupDropDownTop: TRadioGroup
      Left = 193
      Top = 50
      Width = 131
      Height = 45
      Caption = 'DropDownTop'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ItemIndex = 1
      Items.Strings = (
        'Above'
        'Below')
      ParentFont = False
      TabOrder = 4
      OnClick = RadioGroupDropDownTopClick
    end
    object RadioGroupCtrl3D: TRadioGroup
      Left = 56
      Top = 96
      Width = 131
      Height = 45
      Caption = 'Ctrl3D'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ItemIndex = 0
      Items.Strings = (
        'True'
        'False')
      ParentFont = False
      TabOrder = 5
      OnClick = RadioGroupCtrl3DClick
    end
  end
  object TableRest: TTable
    Active = True
    DatabaseName = 'Beta'
    TableName = 'REST.DB'
    Left = 289
    Top = 45
    object TableRestName: TStringField
      FieldName = 'Name'
      Size = 40
    end
    object TableRestSubCat: TSmallintField
      FieldName = 'SubCat'
    end
    object TableRestLocation: TStringField
      FieldName = 'Location'
      Size = 30
    end
    object TableRestPhone: TStringField
      FieldName = 'Phone'
      Size = 14
    end
  end
  object DataSourceRest: TDataSource
    DataSet = TableRest
    Left = 320
    Top = 46
  end
  object TableLocation: TTable
    Active = True
    DatabaseName = 'Beta'
    TableName = 'LOCATION.DB'
    Left = 288
    Top = 75
    object TableLocationLocation: TStringField
      FieldName = 'Location'
      Size = 30
    end
  end
  object DataSourceLocation: TDataSource
    DataSet = TableLocation
    Left = 317
    Top = 75
  end
  object TableSubCat: TTable
    Active = True
    DatabaseName = 'Beta'
    TableName = 'SUBCAT.DB'
    Left = 287
    Top = 105
    object TableSubCatSubCatNum: TSmallintField
      FieldName = 'SubCatNum'
    end
    object TableSubCatSubCatName: TStringField
      FieldName = 'SubCatName'
      Size = 15
    end
  end
  object DataSourceSubCat: TDataSource
    DataSet = TableSubCat
    Left = 318
    Top = 106
  end
end